home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh7x / sh75a.d64 / turtle demo (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  167 lines
  1. 0 REM T U R T L E   D E M O
  2. 1 REM BY PETER MENKE
  3. 2 :
  4. 3 (null) 1,0,0:(null)15:(null)
  5. 4 :
  6. 10 REM ROBOTER-KOPF
  7. 20 (null) 120,160
  8. 30 (null) 2:(null) 10
  9. 40 (null) 0:(null) 30
  10. 50 (null) 2:(null) 10
  11. 55 (null) 4:(null) 40
  12. 60 (null) 2:(null) 100
  13. 65 (null) 0:(null) 100
  14. 70 (null) 6:(null) 100
  15. 90 (null) 4:(null) 40
  16. 100 (null) 6:(null) 10
  17. 110 (null) 0:(null) 30
  18. 120 (null) 6:(null) 10
  19. 121 :
  20. 122 REM LINKES OHR
  21. 130 (null) 110,105
  22. 140 (null) 4:(null) 15
  23. 150 (null) 2:(null) 30
  24. 160 (null) 0:(null) 15
  25. 161 :
  26. 162 REM RECHTES OHR
  27. 170 (null) 210,105
  28. 180 (null) 0:(null) 15
  29. 190 (null) 2:(null) 30
  30. 200 (null) 4:(null) 15
  31. 201 :
  32. 202 REM MUND
  33. 210 (null) 130,120
  34. 220 (null) 6:(null) 10
  35. 230 (null) 0:(null) 60
  36. 240 (null) 2:(null) 10
  37. 241 :
  38. 242 REM NASE
  39. 250 (null) 152,100
  40. 260 (null) 0:(null) 16
  41. 270 (null) 3:(null) 8
  42. 280 (null) 4:(null) 1
  43. 290 (null) 5:(null) 8
  44. 291 :
  45. 292 REM LINKES AUGE
  46. 293 (null) 130,60:(null) 0
  47. 295 FORT=1TO4
  48. 300 (null) 15
  49. 310 (null)2
  50. 320 NEXT
  51. 330 :
  52. 340 REM RECHTES AUGE
  53. 350 (null) 190,60:(null) 6
  54. 360 FORT=1TO4
  55. 370 (null) 15
  56. 380 (null) 2
  57. 390 NEXT
  58. 400 :
  59. 410 (null) 1:PRINT"[147][135]         T U R T L E    D E M O"
  60. 420 PRINT"             BY PETER MENKE"
  61. 430 FORI=0TO4000:NEXT
  62. 440 (null) 0
  63. 450 :
  64. 460 :
  65. 461 REM SPIRALE
  66. 470 (null) 1,2,2:(null) 0:(null):(null) 160,100
  67. 480 FORI=1TO66
  68. 490 (null) 1
  69. 500 (null) I
  70. 510 NEXT
  71. 511 FORI=1TO1000:NEXT
  72. 520 :
  73. 530 :
  74. 540 REM VIERECK-SPIRALEN
  75. 541 (null):(null)1
  76. 550 (null) 1,2,2:FORI=1TO200STEP2
  77. 560 (null) 2:(null) I:NEXT
  78. 561 (null) 160,100
  79. 570 FORI=1TO195STEP2
  80. 580 (null) 2:(null) I:NEXT
  81. 590 (null) 160,100
  82. 600 FORI=1TO195
  83. 610 (null) 2:(null) I:NEXT
  84. 620 :
  85. 630 :
  86. 640 REM MUSTER
  87. 641 (null)1,5,5:(null):(null)0
  88. 650 FORI=1TO45
  89. 660 FORX=0TO7
  90. 670 (null)X
  91. 671 (null) I
  92. 680 NEXTX
  93. 700 NEXT
  94. 710 :
  95. 720 (null)1,5,5
  96. 730 FORI=1TO45
  97. 740 FORX=0TO7
  98. 750 (null)X
  99. 761 (null)I
  100. 780 NEXTX
  101. 790 NEXT
  102. 800 FORI=1TO2000:NEXT
  103. 810 :
  104. 820 :
  105. 830 REM PYRAMIDEN
  106. 840 (null)1,6,6:(null):(null)15
  107. 850 FORI=1TO33
  108. 860 FORX=0TO7
  109. 870 (null) X
  110. 871 (null) I
  111. 880 NEXTX
  112. 900 NEXT
  113. 910 :
  114. 930 FORI=1TO33
  115. 940 FORX=0TO7
  116. 950 (null) 7-X
  117. 961 (null) I
  118. 980 NEXTX
  119. 990 NEXT
  120. 991 FORI=1TO8:(null)
  121. 992 FORX=1TO500:NEXT
  122. 993 NEXT
  123. 1000 :
  124. 1010 :
  125. 1011 REM INVERSES MUSTER
  126. 1020 (null)7,7:(null) 0:(null)
  127. 1030 FORY=1TO4:(null) 1:(null) 2
  128. 1040 FORI=1TO100
  129. 1050 (null) I
  130. 1060 FORX=1TO7
  131. 1070 (null) X:(null)X:NEXTX,I,Y
  132. 1080 :
  133. 1090 :
  134. 1111 REM STRICH-MUSTER
  135. 1120 (null)1,8,8:(null) 0:(null)
  136. 1130 FORY=1TO4:(null) 1:(null)2
  137. 1140 FORI=1TO45
  138. 1150 (null) I
  139. 1160 FORX=1TO10
  140. 1170 (null) X:(null) X:NEXTX,I,Y
  141. 1181 :
  142. 1182 :
  143. 1183 REM JOYSTICK ZEICHNEN
  144. 1184 (null) 1,10,10:(null)0:(null)
  145. 1185 (null)1
  146. 1186 PRINT"[147][135]    JOYSTICK-ZEICHNEN (PORT 2)"
  147. 1187 PRINT"    WEITER MIT F7"
  148. 1188 (null)5
  149. 1189 :
  150. 1190 :
  151. 1191 REM LIGHTPEN ZEICHNEN
  152. 1192 (null) 1,1,1:(null)0:(null)
  153. 1193 (null)1
  154. 1194 PRINT"[147][135]    LIGHTPEN-ZEICHNEN (PORT 1)"
  155. 1195 PRINT"    WEITER MIT F7"
  156. 1196 (null)
  157. 1197 :
  158. 1198 :
  159. 1200 REM ZUFALL
  160. 1210 (null) 1:(null):(null) 1,9,9
  161. 1220 (null) 1
  162. 1230 PRINT"[147][135]ZUFALLSMUSTER
  163. 1240 [153]"SCHLUSS MIT RUN/STOP-TASTE
  164. 1250 X1=INT(RND(1)*300)+10:X2=INT(RND(1)*150)+10:X3=INT(RND(1)*8)
  165. 1260 (null) X1,X2:(null) X3:(null) 1
  166. 1270 GOTO1250
  167.